home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 092 - EBU.dsk / EXPERIMENTAL / WHY.bas < prev   
BASIC Source File  |  2019-02-17  |  1KB  |  33 lines
  1. 0  REM   <CTRL-J>Trig.1<CTRL-J><CTRL-J>
  2. 1  TEXT : HOME : SPEED= 255: CLEAR :PI = 3.14159265
  3. 3  PRINT  CHR$(4);"pr#3": GOSUB 400
  4. 4  PRINT : PRINT 
  5. 5  PRINT " Degrees","Sine","Cosine","Tangent"
  6. 7  PRINT : PRINT : PRINT 
  7. 10 C = PI/180
  8. 20  FOR G = 1 TO 90
  9. 25  PRINT G, STR$( INT(( SIN(G *C) *100000000 +1))/100000000), STR$( INT(( COS(G *C) *100000000 +1))/100000000), STR$( INT(( TAN(G *C) *100000000 +1))/100000000)
  10. 35  IF G = 59  THEN  GOSUB 500
  11. 40  NEXT G
  12. 45  PRINT 
  13. 50  PRINT "                                   end"
  14. 75  PRINT  CHR$(4);"pr#3"
  15. 99  END 
  16. 100  REM  <CTRL-E>End Main Body <CTRL-O><CTRL-J>
  17. 200  REM   if 1st digit of string <>"."then...
  18. 210  IF  LEFT$(T$,1) < >"."  THEN 250
  19. 250  REM  Branch for numbers greater than .99999999<CTRL-J>
  20. 300  REM   if length of string <> then...<CTRL-J><CTRL-J>
  21. 400  REM   Print to Printer or Screen?<CTRL-J>
  22. 410  HOME : VTAB 07: HTAB 17: PRINT "Print to {P}rinter or {S}creen";: GET T$
  23. 420  IF T$ < >"p"  AND T$ < >"P"  AND T$ < >"S"  AND T$ < >"s"  THEN 410
  24. 430  IF T$ = "S"  OR T$ = "s"  THEN  RETURN 
  25. 440  PRINT  CHR$(4);"PR#1"
  26. 498  RETURN 
  27. 499  REM 
  28. 500  PRINT : PRINT : REM  subr. for pg. breaks.<CTRL-J>
  29. 510  PRINT " Degrees","Sine","Cosine","Tangent"
  30. 515  PRINT : PRINT : PRINT 
  31. 520  RETURN 
  32. 1000  REM   Control Codes For Printing
  33. 1010  REM                      ETC...ETC.